home *** CD-ROM | disk | FTP | other *** search
/ Remax Data / Remax Porfolio Data 15 Jul 1994 CD-ROM.ISO / fp26_rmx / takeout.bak < prev    next >
Encoding:
Text File  |  1994-06-30  |  48.9 KB  |  1,753 lines
  1. * This program reads in raw data from remax in the specified format
  2. * It replaces the remax.ap file and awk
  3.  
  4. CLOSE DATABASES
  5. new = FCREATE("RMXDTA.TXT")
  6. bio = FCREATE("bioinfo.txt")
  7. handle = FOPEN("NAME.dat")
  8. *
  9. *IF handle < 0
  10. *    DEFINE WINDOW alert FROM 7,17 TO 12,60 DOUBLE COLOR SCHEME 7
  11.     
  12. *    DO CASE
  13. *        CASE FERROR() = 4
  14. *            reason = 'Too many files Open'
  15. *        CASE FERROR() = 5
  16. *            reason = 'Access Denied'
  17. *        CASE FERROR() = 8
  18. *            reason = 'Out of Memory'
  19. *        CASE FERROR() = 31
  20. *            reason = 'GENERAL FAILURE'
  21. *    ENDCASE
  22.     
  23. *   CANCEL
  24.     
  25. * ENDIF
  26.  
  27. ? 'Starting Program Takeout'
  28. ? 'Run Time for Takeout is about seven minutes per 5000 records'
  29. ? 'Records processed:'
  30. Count = 0
  31.  
  32. DO WHILE (NOT FEOF(handle))
  33.  
  34.     Region = FREAD(handle, 2)
  35.     Office = FREAD(handle, 3)
  36.     Number = FREAD(handle, 3)
  37.     Unique = FREAD(handle,12)
  38.     Name = FREAD(handle, 30)
  39.     Nick = FREAD(handle, 20)
  40.     Title = FREAD(handle, 2)
  41.     Posistion = FREAD(handle, 30)
  42.     Spec1 = FREAD(handle, 3)
  43.     Spec2 = FREAD(handle, 3)
  44.     Lang1 = FREAD(handle, 20)
  45.     Lang2 = FREAD(handle, 20)
  46.     Lang3 = FREAD(handle, 20)
  47.     License = FREAD(handle, 4)
  48.     Join = FREAD(handle, 4)
  49.     Sales = FREAD(handle, 6)
  50.     Desig1 = FREAD(handle, 6)
  51.     Desig2 = FREAD(handle, 6)
  52.     Desig3 = FREAD(handle, 6)
  53.     Desig4 = FREAD(handle, 6)
  54.     Desig5 = FREAD(handle, 6)
  55.     Desig6 = FREAD(handle, 6)
  56.     Club = FREAD(handle, 4)
  57.     ROF = FREAD(handle, 12)
  58.     Comm1 = UPPER(FREAD(handle, 1))
  59.     Comm2 = UPPER(FREAD(handle, 1))
  60.     Comm3 = UPPER(FREAD(handle, 1))
  61.     Comm4 = UPPER(FREAD(handle, 1))
  62.     Comm5 = UPPER(FREAD(handle, 1))
  63.     skip = FSEEK(handle, 5, 1)
  64.     OffName = FREAD(handle, 30)
  65.     OffAdd1 = FREAD(handle, 30)
  66.     OffAdd2 = FREAD(handle, 30)
  67.     City = FREAD(handle, 17)
  68.     State = FREAD(handle, 2)
  69.     Zip = FREAD(handle, 10)
  70.     Country = FREAD(handle, 20)
  71.     Phone1 = FREAD(handle, 12)
  72.     Phone2 = FREAD(handle, 12)
  73.     Phone3 = FREAD(handle, 12)
  74.     Phone4 = FREAD(handle, 12)
  75.     FAX = FREAD(handle, 12)
  76.     Service1 = FREAD(handle, 20)
  77.     Service2 = FREAD(handle, 20)
  78.     Service3 = FREAD(handle, 20)
  79.     Service4 = FREAD(handle, 20)
  80.     Open = FREAD(handle, 6)
  81.     ADI = FREAD(handle, 20)
  82.     Page = FREAD(handle, 4)
  83.     Coor = FREAD(handle, 2)
  84.     OffType = FREAD(handle, 2)
  85.     CityOver = FREAD(handle, 17)
  86.     RosterSta = FREAD(handle, 30)
  87.     Rams = FREAD(handle, 15)
  88.     Achiev = FREAD(handle, 20)
  89.     COMPUSERV = FREAD(handle, 17)
  90.  
  91. * START READING BIO INFO    
  92.  
  93.     PhoneLoc = FREAD(handle, 12)
  94.     HomePhone = FREAD(handle, 12)
  95.     AgntFax = FREAD(handle, 12)
  96.     AgntPager = FREAD(handle, 12)
  97.     AgntMobile = FREAD(handle, 12)
  98.     CIVIC1 = UPPER(FREAD(handle, 4))
  99.     CIVIC2 = UPPER(FREAD(handle, 4))
  100.     CIVIC3 = UPPER(FREAD(handle, 4))
  101.     HOBBY1 = UPPER(FREAD(handle, 4))
  102.     HOBBY2 = UPPER(FREAD(handle, 4))
  103.     HOBBY3 = UPPER(FREAD(handle, 4))
  104.     MEMBER1 = FREAD(handle, 4)
  105.     MEMBER2 = FREAD(handle, 4)
  106.     MEMBER3 = FREAD(handle, 4)
  107.     Service1 = FREAD(handle, 20)
  108.     Service2 = FREAD(handle, 20)
  109.     Service3 = FREAD(handle, 20)
  110.     Service4 = FREAD(handle, 20)
  111.     Service5 = FREAD(handle, 20)
  112.     Education = FREAD(handle, 15)
  113.     Desig1 = FREAD(handle, 10)
  114.     Desig2 = FREAD(handle, 10)
  115.     Desig3 = FREAD(handle, 10)
  116.     Career = FREAD(handle, 40)
  117.     Price_fr = FREAD(handle, 12)
  118.     Price_to = FREAD(handle, 12)
  119.     Pref = FREAD(handle, 1)
  120.     Referal1 = FREAD(handle, 1)
  121.     Referal2 = FREAD(handle, 1)
  122.     Referal3 = FREAD(handle, 1)
  123.     Referal4 = FREAD(handle, 1)
  124.     ERCPaper = FREAD(handle, 1)
  125.     Welcomekit = FREAD(handle, 1)
  126.     Relocations = FREAD(handle, 5)
  127.     Picture = FREAD(handle, 1)
  128.     EntryDate = FREAD(handle, 6)
  129.     BioSubs = FREAD(handle, 10)
  130.     Info = FGETS(handle, 480)
  131.     
  132. * START WRITING TO "new"
  133.     
  134.     =FWRITE(new, Region+',')
  135.     =FWRITE(new, Office+',')
  136.     =FWRITE(new, Number+',')
  137.     =FWRITE(new, Unique+',')
  138.     =FWRITE(new, '"'+TRIM(Name)+'",')
  139.  
  140.     IF NOT EMPTY(TRIM(Nick))
  141.         =FWRITE(new, '"'+TRIM(Nick)+'",')
  142.     ELSE
  143.         =FWRITE(new, ',')
  144.     ENDIF
  145.  
  146.     IF NOT EMPTY(TRIM(Title))
  147.         =FWRITE(new, '"'+TRIM(Title)+'",')
  148.     ELSE
  149.         =FWRITE(new, ',')
  150.     ENDIF
  151.  
  152.     IF NOT EMPTY(TRIM(Posistion))
  153.         =FWRITE(new, '"'+TRIM(Posistion)+'",')
  154.     ELSE
  155.         =FWRITE(new, ',')
  156.     ENDIF
  157.     
  158.     IF NOT EMPTY(TRIM(Spec1))
  159.         =FWRITE(new, '"'+TRIM(Spec1)+'",')
  160.     ELSE
  161.         =FWRITE(new, ',')
  162.     ENDIF
  163.         
  164.     IF NOT EMPTY(TRIM(Spec2))
  165.         =FWRITE(new, '"'+TRIM(Spec2)+'",')
  166.     ELSE
  167.         =FWRITE(new, ',')
  168.     ENDIF
  169.         
  170.     IF NOT EMPTY(TRIM(Lang1))
  171.         =FWRITE(new, '"'+TRIM(Lang1)+'",')
  172.     ELSE
  173.         =FWRITE(new, ',')
  174.     ENDIF
  175.         
  176.     IF NOT EMPTY(TRIM(Lang2))
  177.         =FWRITE(new, '"'+TRIM(Lang2)+'",')
  178.     ELSE
  179.         =FWRITE(new, ',')
  180.     ENDIF
  181.         
  182.     IF NOT EMPTY(TRIM(Lang3))
  183.         =FWRITE(new, '"'+TRIM(Lang3)+'",')
  184.     ELSE
  185.         =FWRITE(new, ',')
  186.     ENDIF
  187.         
  188.     IF NOT EMPTY(TRIM(License))
  189.         =FWRITE(new, TRIM(License)+',')
  190.     ELSE
  191.         =FWRITE(new, ',')
  192.     ENDIF
  193.         
  194.     IF NOT EMPTY(TRIM(Join))
  195.         =FWRITE(new, TRIM(Join)+',')
  196.     ELSE
  197.         =FWRITE(new, ',')
  198.     ENDIF
  199.         
  200.     IF NOT EMPTY(TRIM(Sales))
  201.         =FWRITE(new, TRIM(Sales)+',')
  202.     ELSE
  203.         =FWRITE(new, ',')
  204.     ENDIF
  205.         
  206.     IF NOT EMPTY(TRIM(Desig1))
  207.         =FWRITE(new, '"'+TRIM(Desig1)+'",')
  208.     ELSE
  209.         =FWRITE(new, ',')
  210.     ENDIF
  211.         
  212.     IF NOT EMPTY(TRIM(Desig1))
  213.         =FWRITE(new, '"'+TRIM(Desig1)+'",')
  214.     ELSE
  215.         =FWRITE(new, ',')
  216.     ENDIF
  217.         
  218.     IF NOT EMPTY(TRIM(Desig2))
  219.         =FWRITE(new, '"'+TRIM(Desig2)+'",')
  220.     ELSE
  221.         =FWRITE(new, ',')
  222.     ENDIF
  223.  
  224.     IF NOT EMPTY(TRIM(Desig3))
  225.         =FWRITE(new, '"'+TRIM(Desig3)+'",')
  226.     ELSE
  227.         =FWRITE(new, ',')
  228.     ENDIF
  229.  
  230.     IF NOT EMPTY(TRIM(Desig4))
  231.         =FWRITE(new, '"'+TRIM(Desig4)+'",')
  232.     ELSE
  233.         =FWRITE(new, ',')
  234.     ENDIF
  235.  
  236.     IF NOT EMPTY(TRIM(Desig5))
  237.         =FWRITE(new, '"'+TRIM(Desig5)+'",')
  238.     ELSE
  239.         =FWRITE(new, ',')
  240.     ENDIF
  241.  
  242.     IF NOT EMPTY(TRIM(Desig6))
  243.         =FWRITE(new, '"'+TRIM(Desig6)+'",')
  244.     ELSE
  245.         =FWRITE(new, ',')
  246.     ENDIF
  247.  
  248.     IF NOT EMPTY(TRIM(Club))
  249.         =FWRITE(new, '"'+TRIM(Club)+'",')
  250.     ELSE
  251.         =FWRITE(new, ',')
  252.     ENDIF
  253.  
  254.     IF NOT EMPTY(TRIM(ROF))
  255.         =FWRITE(new, '"'+TRIM(ROF)+'",')
  256.     ELSE
  257.         =FWRITE(new, ',')
  258.     ENDIF
  259.  
  260.     IF NOT EMPTY(TRIM(Comm1))
  261.         DO CASE
  262.             CASE Comm1 == 'A'
  263.                 =FWRITE(new, '"Apartment Buildings (under 100 units)",')
  264.             CASE Comm1 == 'B'
  265.                 =FWRITE(new, '"Apartment Buildings (over 100 units)",')
  266.             CASE Comm1 == 'C'
  267.                 =FWRITE(new, '"Build to Suit/Leaseback (under 100 units)",')
  268.             CASE Comm1 == 'D'
  269.                 =FWRITE(new, '"Business Opportunities",')
  270.             CASE Comm1 == 'E'
  271.                 =FWRITE(new, '"Condo Conversions",')
  272.             CASE Comm1 == 'F'
  273.                 =FWRITE(new, '"Development",')
  274.             CASE Comm1 == 'G'
  275.                 =FWRITE(new, '"Exchanging",')
  276.             CASE Comm1 == 'H'
  277.                 =FWRITE(new, '"Farm and Land",')
  278.             CASE Comm1 == 'I'
  279.                 =FWRITE(new, '"Foreign Investment Property",')
  280.             CASE Comm1 == 'J'
  281.                 =FWRITE(new, '"General Commercial",')
  282.             CASE Comm1 == 'K'
  283.                 =FWRITE(new, '"Health Care Faculties",')
  284.             CASE Comm1 == 'L'
  285.                 =FWRITE(new, '"Hotels/Motels",')
  286.             CASE Comm1 == 'M'
  287.                 =FWRITE(new, '"Industrial Properties/Warehouse",')
  288.             CASE Comm1 == 'N'
  289.                 =FWRITE(new, '"Leasing",')
  290.             CASE Comm1 == 'O'
  291.                 =FWRITE(new, '"Mobile Home Parks",')
  292.             CASE Comm1 == 'P'
  293.                 =FWRITE(new, '"Office Buildings (under 100,000 S.F.)",')
  294.             CASE Comm1 == 'Q'
  295.                 =FWRITE(new, '"Office Buildings (over 100,000 S.F.)",')
  296.             CASE Comm1 == 'R'
  297.                 =FWRITE(new, '"Other",')
  298.             CASE Comm1 == 'S'
  299.                 =FWRITE(new, '"Restaurant",')
  300.             CASE Comm1 == 'T'
  301.                 =FWRITE(new, '"Retirement Properties/Communities",')
  302.             CASE Comm1 == 'U'
  303.                 =FWRITE(new, '"Shopping Centers (under 100,000 S.F.)",')
  304.             CASE Comm1 == 'V'
  305.                 =FWRITE(new, '"Shopping Centers (over 100,000 S.F.)",')
  306.             CASE Comm1 == 'W'
  307.                 =FWRITE(new, '"Vacant Land (Commercial/Industrial Sites)",')
  308.             CASE Comm1 == 'X'
  309.                 =FWRITE(new, '"Vacant Land (Residential Sites)",')
  310.             CASE Comm1 == 'Y'
  311.                 =FWRITE(new, '"Real Estate Owned (REO)",')
  312.             OTHERWISE
  313.                 =FWRITE(new, ',')
  314.         ENDCASE
  315.     ELSE
  316.         =FWRITE(new, ',')
  317.     ENDIF
  318.  
  319.     IF NOT EMPTY(TRIM(Comm2))
  320.         DO CASE
  321.             CASE Comm2 == 'A'
  322.                 =FWRITE(new, '"Apartment Buildings (under 100 units)",')
  323.             CASE Comm2 == 'B'
  324.                 =FWRITE(new, '"Apartment Buildings (over 100 units)",')
  325.             CASE Comm2 == 'C'
  326.                 =FWRITE(new, '"Build to Suit/Leaseback (under 100 units)",')
  327.             CASE Comm2 == 'D'
  328.                 =FWRITE(new, '"Business Opportunities",')
  329.             CASE Comm2 == 'E'
  330.                 =FWRITE(new, '"Condo Conversions",')
  331.             CASE Comm2 == 'F'
  332.                 =FWRITE(new, '"Development",')
  333.             CASE Comm2 == 'G'
  334.                 =FWRITE(new, '"Exchanging",')
  335.             CASE Comm2 == 'H'
  336.                 =FWRITE(new, '"Farm and Land",')
  337.             CASE Comm2 == 'I'
  338.                 =FWRITE(new, '"Foreign Investment Property",')
  339.             CASE Comm2 == 'J'
  340.                 =FWRITE(new, '"General Commercial",')
  341.             CASE Comm2 == 'K'
  342.                 =FWRITE(new, '"Health Care Faculties",')
  343.             CASE Comm2 == 'L'
  344.                 =FWRITE(new, '"Hotels/Motels",')
  345.             CASE Comm2 == 'M'
  346.                 =FWRITE(new, '"Industrial Properties/Warehouse",')
  347.             CASE Comm2 == 'N'
  348.                 =FWRITE(new, '"Leasing",')
  349.             CASE Comm2 == 'O'
  350.                 =FWRITE(new, '"Mobile Home Parks",')
  351.             CASE Comm2 == 'P'
  352.                 =FWRITE(new, '"Office Buildings (under 100,000 S.F.)",')
  353.             CASE Comm2 == 'Q'
  354.                 =FWRITE(new, '"Office Buildings (over 100,000 S.F.)",')
  355.             CASE Comm2 == 'R'
  356.                 =FWRITE(new, '"Other",')
  357.             CASE Comm2 == 'S'
  358.                 =FWRITE(new, '"Restaurant",')
  359.             CASE Comm2 == 'T'
  360.                 =FWRITE(new, '"Retirement Properties/Communities",')
  361.             CASE Comm2 == 'U'
  362.                 =FWRITE(new, '"Shopping Centers (under 100,000 S.F.)",')
  363.             CASE Comm2 == 'V'
  364.                 =FWRITE(new, '"Shopping Centers (over 100,000 S.F.)",')
  365.             CASE Comm2 == 'W'
  366.                 =FWRITE(new, '"Vacant Land (Commercial/Industrial Sites)",')
  367.             CASE Comm2 == 'X'
  368.                 =FWRITE(new, '"Vacant Land (Residential Sites)",')
  369.             CASE Comm2 == 'Y'
  370.                 =FWRITE(new, '"Real Estate Owned (REO)",')
  371.             OTHERWISE
  372.                 =FWRITE(new, ',')
  373.         ENDCASE
  374.     ELSE
  375.         =FWRITE(new, ',')
  376.     ENDIF
  377.  
  378.     IF NOT EMPTY(TRIM(Comm3))
  379.         DO CASE
  380.             CASE Comm3 == 'A'
  381.                 =FWRITE(new, '"Apartment Buildings (under 100 units)",')
  382.             CASE Comm3 == 'B'
  383.                 =FWRITE(new, '"Apartment Buildings (over 100 units)",')
  384.             CASE Comm3 == 'C'
  385.                 =FWRITE(new, '"Build to Suit/Leaseback (under 100 units)",')
  386.             CASE Comm3 == 'D'
  387.                 =FWRITE(new, '"Business Opportunities",')
  388.             CASE Comm3 == 'E'
  389.                 =FWRITE(new, '"Condo Conversions",')
  390.             CASE Comm3 == 'F'
  391.                 =FWRITE(new, '"Development",')
  392.             CASE Comm3 == 'G'
  393.                 =FWRITE(new, '"Exchanging",')
  394.             CASE Comm3 == 'H'
  395.                 =FWRITE(new, '"Farm and Land",')
  396.             CASE Comm3 == 'I'
  397.                 =FWRITE(new, '"Foreign Investment Property",')
  398.             CASE Comm3 == 'J'
  399.                 =FWRITE(new, '"General Commercial",')
  400.             CASE Comm3 == 'K'
  401.                 =FWRITE(new, '"Health Care Faculties",')
  402.             CASE Comm3 == 'L'
  403.                 =FWRITE(new, '"Hotels/Motels",')
  404.             CASE Comm3 == 'M'
  405.                 =FWRITE(new, '"Industrial Properties/Warehouse",')
  406.             CASE Comm3 == 'N'
  407.                 =FWRITE(new, '"Leasing",')
  408.             CASE Comm3 == 'O'
  409.                 =FWRITE(new, '"Mobile Home Parks",')
  410.             CASE Comm3 == 'P'
  411.                 =FWRITE(new, '"Office Buildings (under 100,000 S.F.)",')
  412.             CASE Comm3 == 'Q'
  413.                 =FWRITE(new, '"Office Buildings (over 100,000 S.F.)",')
  414.             CASE Comm3 == 'R'
  415.                 =FWRITE(new, '"Other",')
  416.             CASE Comm3 == 'S'
  417.                 =FWRITE(new, '"Restaurant",')
  418.             CASE Comm3 == 'T'
  419.                 =FWRITE(new, '"Retirement Properties/Communities",')
  420.             CASE Comm3 == 'U'
  421.                 =FWRITE(new, '"Shopping Centers (under 100,000 S.F.)",')
  422.             CASE Comm3 == 'V'
  423.                 =FWRITE(new, '"Shopping Centers (over 100,000 S.F.)",')
  424.             CASE Comm3 == 'W'
  425.                 =FWRITE(new, '"Vacant Land (Commercial/Industrial Sites)",')
  426.             CASE Comm3 == 'X'
  427.                 =FWRITE(new, '"Vacant Land (Residential Sites)",')
  428.             CASE Comm3 == 'Y'
  429.                 =FWRITE(new, '"Real Estate Owned (REO)",')
  430.             OTHERWISE
  431.                 =FWRITE(new, ',')
  432.         ENDCASE
  433.     ELSE
  434.         =FWRITE(new, ',')
  435.     ENDIF
  436.  
  437.     IF NOT EMPTY(TRIM(Comm4))
  438.         DO CASE
  439.             CASE Comm4 == 'A'
  440.                 =FWRITE(new, '"Apartment Buildings (under 100 units)",')
  441.             CASE Comm4 == 'B'
  442.                 =FWRITE(new, '"Apartment Buildings (over 100 units)",')
  443.             CASE Comm4 == 'C'
  444.                 =FWRITE(new, '"Build to Suit/Leaseback (under 100 units)",')
  445.             CASE Comm4 == 'D'
  446.                 =FWRITE(new, '"Business Opportunities",')
  447.             CASE Comm4 == 'E'
  448.                 =FWRITE(new, '"Condo Conversions",')
  449.             CASE Comm4 == 'F'
  450.                 =FWRITE(new, '"Development",')
  451.             CASE Comm4 == 'G'
  452.                 =FWRITE(new, '"Exchanging",')
  453.             CASE Comm4 == 'H'
  454.                 =FWRITE(new, '"Farm and Land",')
  455.             CASE Comm4 == 'I'
  456.                 =FWRITE(new, '"Foreign Investment Property",')
  457.             CASE Comm4 == 'J'
  458.                 =FWRITE(new, '"General Commercial",')
  459.             CASE Comm4 == 'K'
  460.                 =FWRITE(new, '"Health Care Faculties",')
  461.             CASE Comm4 == 'L'
  462.                 =FWRITE(new, '"Hotels/Motels",')
  463.             CASE Comm4 == 'M'
  464.                 =FWRITE(new, '"Industrial Properties/Warehouse",')
  465.             CASE Comm4 == 'N'
  466.                 =FWRITE(new, '"Leasing",')
  467.             CASE Comm4 == 'O'
  468.                 =FWRITE(new, '"Mobile Home Parks",')
  469.             CASE Comm4 == 'P'
  470.                 =FWRITE(new, '"Office Buildings (under 100,000 S.F.)",')
  471.             CASE Comm4 == 'Q'
  472.                 =FWRITE(new, '"Office Buildings (over 100,000 S.F.)",')
  473.             CASE Comm4 == 'R'
  474.                 =FWRITE(new, '"Other",')
  475.             CASE Comm4 == 'S'
  476.                 =FWRITE(new, '"Restaurant",')
  477.             CASE Comm4 == 'T'
  478.                 =FWRITE(new, '"Retirement Properties/Communities",')
  479.             CASE Comm4 == 'U'
  480.                 =FWRITE(new, '"Shopping Centers (under 100,000 S.F.)",')
  481.             CASE Comm4 == 'V'
  482.                 =FWRITE(new, '"Shopping Centers (over 100,000 S.F.)",')
  483.             CASE Comm4 == 'W'
  484.                 =FWRITE(new, '"Vacant Land (Commercial/Industrial Sites)",')
  485.             CASE Comm4 == 'X'
  486.                 =FWRITE(new, '"Vacant Land (Residential Sites)",')
  487.             CASE Comm4 == 'Y'
  488.                 =FWRITE(new, '"Real Estate Owned (REO)",')
  489.             OTHERWISE
  490.                 =FWRITE(new, ',')
  491.         ENDCASE
  492.     ELSE
  493.         =FWRITE(new, ',')
  494.     ENDIF
  495.  
  496.     IF NOT EMPTY(TRIM(Comm5))
  497.         DO CASE
  498.             CASE Comm5 == 'A'
  499.                 =FWRITE(new, '"Apartment Buildings (under 100 units)",')
  500.             CASE Comm5 == 'B'
  501.                 =FWRITE(new, '"Apartment Buildings (over 100 units)",')
  502.             CASE Comm5 == 'C'
  503.                 =FWRITE(new, '"Build to Suit/Leaseback (under 100 units)",')
  504.             CASE Comm5 == 'D'
  505.                 =FWRITE(new, '"Business Opportunities",')
  506.             CASE Comm5 == 'E'
  507.                 =FWRITE(new, '"Condo Conversions",')
  508.             CASE Comm5 == 'F'
  509.                 =FWRITE(new, '"Development",')
  510.             CASE Comm5 == 'G'
  511.                 =FWRITE(new, '"Exchanging",')
  512.             CASE Comm5 == 'H'
  513.                 =FWRITE(new, '"Farm and Land",')
  514.             CASE Comm5 == 'I'
  515.                 =FWRITE(new, '"Foreign Investment Property",')
  516.             CASE Comm5 == 'J'
  517.                 =FWRITE(new, '"General Commercial",')
  518.             CASE Comm5 == 'K'
  519.                 =FWRITE(new, '"Health Care Faculties",')
  520.             CASE Comm5 == 'L'
  521.                 =FWRITE(new, '"Hotels/Motels",')
  522.             CASE Comm5 == 'M'
  523.                 =FWRITE(new, '"Industrial Properties/Warehouse",')
  524.             CASE Comm5 == 'N'
  525.                 =FWRITE(new, '"Leasing",')
  526.             CASE Comm5 == 'O'
  527.                 =FWRITE(new, '"Mobile Home Parks",')
  528.             CASE Comm5 == 'P'
  529.                 =FWRITE(new, '"Office Buildings (under 100,000 S.F.)",')
  530.             CASE Comm5 == 'Q'
  531.                 =FWRITE(new, '"Office Buildings (over 100,000 S.F.)",')
  532.             CASE Comm5 == 'R'
  533.                 =FWRITE(new, '"Other",')
  534.             CASE Comm5 == 'S'
  535.                 =FWRITE(new, '"Restaurant",')
  536.             CASE Comm5 == 'T'
  537.                 =FWRITE(new, '"Retirement Properties/Communities",')
  538.             CASE Comm5 == 'U'
  539.                 =FWRITE(new, '"Shopping Centers (under 100,000 S.F.)",')
  540.             CASE Comm5 == 'V'
  541.                 =FWRITE(new, '"Shopping Centers (over 100,000 S.F.)",')
  542.             CASE Comm5 == 'W'
  543.                 =FWRITE(new, '"Vacant Land (Commercial/Industrial Sites)",')
  544.             CASE Comm5 == 'X'
  545.                 =FWRITE(new, '"Vacant Land (Residential Sites)",')
  546.             CASE Comm5 == 'Y'
  547.                 =FWRITE(new, '"Real Estate Owned (REO)",')
  548.             OTHERWISE
  549.                 =FWRITE(new, ',')
  550.         ENDCASE
  551. *    ELSE
  552. *        =FWRITE(new, ',')
  553.     ENDIF
  554.  
  555.     IF NOT EMPTY(TRIM(OffName))
  556.         =FWRITE(new, '"'+TRIM(OffName)+'",')
  557.     ELSE
  558.         =FWRITE(new, ',')
  559.     ENDIF
  560.  
  561.     IF NOT EMPTY(TRIM(OffAdd1))
  562.         =FWRITE(new, '"'+TRIM(OffAdd1)+'",')
  563.     ELSE
  564.         =FWRITE(new, ',')
  565.     ENDIF
  566.  
  567.     IF NOT EMPTY(TRIM(OffAdd2))
  568.         =FWRITE(new, '"'+TRIM(OffAdd2)+'",')
  569.     ELSE
  570.         =FWRITE(new, ',')
  571.     ENDIF
  572.  
  573.     IF NOT EMPTY(TRIM(City))
  574.         =FWRITE(new, '"'+TRIM(City)+'",')
  575.     ELSE
  576.         =FWRITE(new, ',')
  577.     ENDIF
  578.  
  579.     IF NOT EMPTY(TRIM(State))
  580.         =FWRITE(new, '"'+UPPER(TRIM(State))+'",')
  581.     ELSE
  582.         =FWRITE(new, ',')
  583.     ENDIF
  584.  
  585.     IF NOT EMPTY(TRIM(Zip))
  586.         =FWRITE(new, '"'+TRIM(Zip)+'",')
  587.     ELSE
  588.         =FWRITE(new, ',')
  589.     ENDIF
  590.  
  591.     IF NOT EMPTY(TRIM(Country))
  592.         =FWRITE(new, '"'+TRIM(Country)+'",')
  593.     ELSE
  594.         =FWRITE(new, ',')
  595.     ENDIF
  596.  
  597.     IF NOT EMPTY(TRIM(Phone1))
  598.         =FWRITE(new, '"'+TRIM(Phone1)+'",')
  599.     ELSE
  600.         =FWRITE(new, ',')
  601.     ENDIF
  602.  
  603.     IF NOT EMPTY(TRIM(Phone2))
  604.         =FWRITE(new, '"'+TRIM(Phone2)+'",')
  605.     ELSE
  606.         =FWRITE(new, ',')
  607.     ENDIF
  608.  
  609.     IF NOT EMPTY(TRIM(Phone3))
  610.         =FWRITE(new, '"'+TRIM(Phone3)+'",')
  611.     ELSE
  612.         =FWRITE(new, ',')
  613.     ENDIF
  614.  
  615.     IF NOT EMPTY(TRIM(Phone4))
  616.         =FWRITE(new, '"'+TRIM(Phone4)+'",')
  617.     ELSE
  618.         =FWRITE(new, ',')
  619.     ENDIF
  620.  
  621.     IF NOT EMPTY(TRIM(FAX))
  622.         =FWRITE(new, '"'+TRIM(FAX)+'",')
  623.     ELSE
  624.         =FWRITE(new, ',')
  625.     ENDIF
  626.  
  627.     IF NOT EMPTY(TRIM(Picture))
  628.         =FWRITE(new, '"'+TRIM(Picture)+'",')
  629.     ELSE
  630.         =FWRITE(new, ',')
  631.     ENDIF        
  632.  
  633.     IF NOT EMPTY(TRIM(Service1))
  634.         =FWRITE(new, '"'+TRIM(Service1)+'",')
  635.     ELSE
  636.         =FWRITE(new, ',')
  637.     ENDIF
  638.  
  639.     IF NOT EMPTY(TRIM(Service2))
  640.         =FWRITE(new, '"'+TRIM(Service2)+'",')
  641.     ELSE
  642.         =FWRITE(new, ',')
  643.     ENDIF
  644.  
  645.     IF NOT EMPTY(TRIM(Service3))
  646.         =FWRITE(new, '"'+TRIM(Service3)+'",')
  647.     ELSE
  648.         =FWRITE(new, ',')
  649.     ENDIF
  650.  
  651.     IF NOT EMPTY(TRIM(Service4))
  652.         =FWRITE(new, '"'+TRIM(Service4)+'",')
  653.     ELSE
  654.         =FWRITE(new, ',')
  655.     ENDIF
  656.  
  657.     IF NOT EMPTY(TRIM(Open))
  658.         =FWRITE(new, TRIM(Open)+',')
  659.     ELSE
  660.         =FWRITE(new, ',')
  661.     ENDIF
  662.  
  663.     IF NOT EMPTY(TRIM(ADI))
  664.         =FWRITE(new, '"'+TRIM(ADI)+'",')
  665.     ELSE
  666.         =FWRITE(new, ',')
  667.     ENDIF
  668.  
  669.     IF NOT EMPTY(TRIM(Page))
  670.         =FWRITE(new, '"'+TRIM(Page)+'",')
  671.     ELSE
  672.         =FWRITE(new, ',')
  673.     ENDIF
  674.  
  675.     IF NOT EMPTY(TRIM(Coor))
  676.         =FWRITE(new, '"'+TRIM(Coor)+'",')
  677.     ELSE
  678.         =FWRITE(new, ',')
  679.     ENDIF
  680.  
  681.     IF NOT EMPTY(TRIM(OffType))
  682.         =FWRITE(new, TRIM(OffType)+',')
  683.     ELSE
  684.         =FWRITE(new, ',')
  685.     ENDIF
  686.  
  687.     IF NOT EMPTY(TRIM(CityOver))
  688.         =FWRITE(new, '"'+TRIM(CityOver)+'",')
  689.     ELSE
  690.         =FWRITE(new, ',')
  691.     ENDIF
  692.  
  693.     IF NOT EMPTY(TRIM(RosterSta))
  694.         =FWRITE(new, '"'+TRIM(RosterSta)+'",')
  695.     ELSE
  696.         =FWRITE(new, ',')
  697.     ENDIF
  698.  
  699.     IF NOT EMPTY(TRIM(Rams))
  700.         =FWRITE(new, '"'+TRIM(Rams)+'",')
  701.     ELSE
  702.         =FWRITE(new, ',')
  703.     ENDIF
  704.  
  705.     IF NOT EMPTY(TRIM(Achiev))
  706.         =FWRITE(new, '"ACHIEV: '+TRIM(Achiev)+'",')
  707.     ELSE
  708.         =FWRITE(new, ',')
  709.     ENDIF
  710.  
  711.     IF NOT EMPTY(TRIM(COMPUSERV))
  712.         =FPUTS(new, ALLTRIM(COMPUSERV)+',')
  713.     ELSE
  714.         =FPUTS(new, ',')
  715.     ENDIF
  716.     
  717. *    IF NOT EMPTY(TRIM(PICTURE))
  718.         IF PICTURE == 'Y'
  719.  
  720.             =FWRITE(bio, Unique+',')
  721.             
  722.             IF NOT EMPTY(TRIM(PhoneLoc))
  723.                 =FWRITE(bio, '"'+TRIM(PhoneLoc)+'",')
  724.             ELSE
  725.                 =FWRITE(bio, ',')
  726.             ENDIF
  727.             
  728.             IF NOT EMPTY(TRIM(HomePhone))
  729.                 =FWRITE(bio, '"'+TRIM(HomePhone)+'",')
  730.             ELSE
  731.                 =FWRITE(bio, ',')
  732.             ENDIF
  733.             
  734.             IF NOT EMPTY(TRIM(AgntFax))
  735.                 =FWRITE(bio, '"'+TRIM(AgntFax)+'",')
  736.             ELSE
  737.                 =FWRITE(bio, ',')
  738.             ENDIF
  739.             
  740.             IF NOT EMPTY(TRIM(AgntPager))
  741.                 =FWRITE(bio, '"'+TRIM(AgntPager)+'",')
  742.             ELSE
  743.                 =FWRITE(bio, ',')
  744.             ENDIF
  745.                 
  746.             IF NOT EMPTY(TRIM(AgntMobile))
  747.                 =FWRITE(bio, '"'+TRIM(AgntMobile)+'",')
  748.              ELSE
  749.                  =FWRITE(bio, ',')
  750.              ENDIF
  751.                  
  752.              IF NOT EMPTY(TRIM(CIVIC1))
  753.                 DO CASE                 
  754.                     CASE CIVIC1 == 'AGED'
  755.                         =FWRITE(bio, '"Aged Volunteer",')
  756.                     CASE CIVIC1 == 'ALCO'
  757.                         =FWRITE(bio, '"AlcoholicsAnon/Al Anon",')
  758.                     CASE CIVIC1 == 'ARMD'
  759.                         =FWRITE(bio, '"Armed Forces Reserves",')
  760.                     CASE CIVIC1 == 'BATT'
  761.                         =FWRITE(bio, '"Battered/Sexual Abuse",')
  762.                     CASE CIVIC1 == 'BGCL'
  763.                         =FWRITE(bio, '"Boys/Girls Clubs",')
  764.                     CASE CIVIC1 == 'BGSC'
  765.                         =FWRITE(bio, '"Boy/Girl Scouts",')
  766.                     CASE CIVIC1 == 'BOAR'
  767.                         =FWRITE(bio, '"Board of Realtors",')
  768.                     CASE CIVIC1 == 'BUSW'
  769.                         =FWRITE(bio, '"Businesswomens Clubs",')
  770.                     CASE CIVIC1 == 'CANC'
  771.                         =FWRITE(bio, '"Cancer Society",')
  772.                     CASE CIVIC1 == 'CARE'
  773.                         =FWRITE(bio, '"CARES",')
  774.                     CASE CIVIC1 == 'CIVI'
  775.                         =FWRITE(bio, '"Civic Activities",')
  776.                     CASE CIVIC1 == 'CF  '
  777.                         =FWRITE(bio, '"Cystic Fibrosis",')
  778.                     CASE CIVIC1 == 'CCJC'
  779.                         =FWRITE(bio, '"Chamber of Commerce/Jaycees",')
  780.                     CASE CIVIC1 == 'CHSC'
  781.                         =FWRITE(bio, '"Church/School Volunteer",')
  782.                     CASE CIVIC1 == 'CMN '
  783.                         =FWRITE(bio, '"Childrens Miracle Network",')
  784.                     CASE CIVIC1 == 'COAC'
  785.                         =FWRITE(bio, '"Coach Volunteer",')
  786.                     CASE CIVIC1 == 'COLL'
  787.                         =FWRITE(bio, '"College/Frat Alumni",')
  788.                     CASE CIVIC1 == 'COMM'
  789.                         =FWRITE(bio, '"Community Economic Devmt",')
  790.                     CASE CIVIC1 == 'CRSB'
  791.                         =FWRITE(bio, '"CRS/CRB",')
  792.                     CASE CIVIC1 == 'DELQ'
  793.                         =FWRITE(bio, '"Delinquency/Tough Love",')
  794.                     CASE CIVIC1 == 'EAST'
  795.                         =FWRITE(bio, '"Easter Seals/Handicapped",')
  796.                     CASE CIVIC1 == 'EEMC'
  797.                         =FWRITE(bio, '"Eagles/Elks/Moose Clubs",')
  798.                     CASE CIVIC1 == 'ENVR'
  799.                         =FWRITE(bio, '"Environmental Concerns",')
  800.                     CASE CIVIC1 == 'FOST'
  801.                         =FWRITE(bio, '"Foster Care/Adoption",')
  802.                     CASE CIVIC1 == 'GRPE'
  803.                         =FWRITE(bio, '"Green Peace",')
  804.                     CASE CIVIC1 == 'HOBL'
  805.                         =FWRITE(bio, '"Home Builders",')
  806.                     CASE CIVIC1 == 'HOLS'
  807.                         =FWRITE(bio, '"Homeless",')
  808.                     CASE CIVIC1 == 'HOME'
  809.                         =FWRITE(bio, '"Home Owners Association",')
  810.                     CASE CIVIC1 == 'HOSP'
  811.                         =FWRITE(bio, '"Hospital Volunteer",')
  812.                     CASE CIVIC1 == 'HUMA'
  813.                         =FWRITE(bio, '"Humane Society",')
  814.                     CASE CIVIC1 == 'JRLG'
  815.                         =FWRITE(bio, '"Jr. League",')
  816.                     CASE CIVIC1 == 'KIWA'
  817.                         =FWRITE(bio, '"Kiwanis",')
  818.                     CASE CIVIC1 == 'KNCO'
  819.                         =FWRITE(bio, '"Knights of Columbus",')
  820.                     CASE CIVIC1 == 'LION'
  821.                         =FWRITE(bio, '"Lions Clubs",')
  822.                     CASE CIVIC1 == 'LITL'
  823.                         =FWRITE(bio, '"Little League",')
  824.                     CASE CIVIC1 == 'MAKE'
  825.                         =FWRITE(bio, '"Make-A-Wish",')
  826.                     CASE CIVIC1 == 'MASO'
  827.                         =FWRITE(bio, '"Masons/Eastern Star/Shriners",')
  828.                     CASE CIVIC1 == 'MEAL'
  829.                         =FWRITE(bio, '"Meals on Wheels",')
  830.                     CASE CIVIC1 == 'MEDL'
  831.                         =FWRITE(bio, '"Medical Auxillary",')
  832.                     CASE CIVIC1 == 'MS  '
  833.                         =FWRITE(bio, '"Multiple Sclerosis",')
  834.                     CASE CIVIC1 == 'OPT '
  835.                         =FWRITE(bio, '"Optimist",')
  836.                     CASE CIVIC1 == 'PTAO'
  837.                         =FWRITE(bio, '"PTA/PTO",')
  838.                     CASE CIVIC1 == 'POLI'
  839.                         =FWRITE(bio, '"Politics/Political Clubs",')
  840.                     CASE CIVIC1 == 'REDC'
  841.                         =FWRITE(bio, '"Red Cross",')
  842.                     CASE CIVIC1 == 'RETD'
  843.                         =FWRITE(bio, '"Retarded People",')
  844.                     CASE CIVIC1 == 'RONM'
  845.                         =FWRITE(bio, '"Ronald McDonald House",')
  846.                     CASE CIVIC1 == 'ROTY'
  847.                         =FWRITE(bio, '"Rotary",')
  848.                     CASE CIVIC1 == 'SADD'
  849.                         =FWRITE(bio, '"SADD/MADD",')
  850.                     CASE CIVIC1 == 'SIER'
  851.                         =FWRITE(bio, '"Sierra Club",')
  852.                     CASE CIVIC1 == 'SPOL'
  853.                         =FWRITE(bio, '"Special Olympics",')
  854.                     CASE CIVIC1 == 'STDY'
  855.                         =FWRITE(bio, '"Study Club",')
  856.                     CASE CIVIC1 == 'TOAS'
  857.                         =FWRITE(bio, '"Toastmasters",')
  858.                     CASE CIVIC1 == 'UNIT'
  859.                         =FWRITE(bio, '"United Way",')
  860.                     CASE CIVIC1 == 'VF  '
  861.                         =FWRITE(bio, '"VFW/Am Legion",')
  862.                     CASE CIVIC1 == 'WC  '
  863.                         =FWRITE(bio, '"Womens Council of Realtors",')
  864.                     CASE CIVIC1 == 'YMCA'
  865.                         =FWRITE(bio, '"YMCA/YWCA",')
  866.                       OTHERWISE
  867.                           =FWRITE(bio, ',')
  868.                   ENDCASE
  869.               ELSE
  870.                 =FWRITE(bio, ',')
  871.               ENDIF    
  872.  
  873.  
  874.              IF NOT EMPTY(TRIM(CIVIC2))
  875.                 DO CASE                 
  876.                     CASE CIVIC2 == 'AGED'
  877.                         =FWRITE(bio, '"Aged Volunteer",')
  878.                     CASE CIVIC2 == 'ALCO'
  879.                         =FWRITE(bio, '"AlcoholicsAnon/Al Anon",')
  880.                     CASE CIVIC2 == 'ARMD'
  881.                         =FWRITE(bio, '"Armed Forces Reserves",')
  882.                     CASE CIVIC2 == 'BATT'
  883.                         =FWRITE(bio, '"Battered/Sexual Abuse",')
  884.                     CASE CIVIC2 == 'BGCL'
  885.                         =FWRITE(bio, '"Boys/Girls Clubs",')
  886.                     CASE CIVIC2 == 'BGSC'
  887.                         =FWRITE(bio, '"Boy/Girl Scouts",')
  888.                     CASE CIVIC2 == 'BOAR'
  889.                         =FWRITE(bio, '"Board of Realtors",')
  890.                     CASE CIVIC2 == 'BUSW'
  891.                         =FWRITE(bio, '"Businesswomens Clubs",')
  892.                     CASE CIVIC2 == 'CANC'
  893.                         =FWRITE(bio, '"Cancer Society",')
  894.                     CASE CIVIC2 == 'CARE'
  895.                         =FWRITE(bio, '"CARES",')
  896.                     CASE CIVIC2 == 'CIVI'
  897.                         =FWRITE(bio, '"Civic Activities",')
  898.                     CASE CIVIC2 == 'CF  '
  899.                         =FWRITE(bio, '"Cystic Fibrosis",')
  900.                     CASE CIVIC2 == 'CCJC'
  901.                         =FWRITE(bio, '"Chamber of Commerce/Jaycees",')
  902.                     CASE CIVIC2 == 'CHSC'
  903.                         =FWRITE(bio, '"Church/School Volunteer",')
  904.                     CASE CIVIC2 == 'CMN '
  905.                         =FWRITE(bio, '"Childrens Miracle Network",')
  906.                     CASE CIVIC2 == 'COAC'
  907.                         =FWRITE(bio, '"Coach Volunteer",')
  908.                     CASE CIVIC2 == 'COLL'
  909.                         =FWRITE(bio, '"College/Frat Alumni",')
  910.                     CASE CIVIC2 == 'COMM'
  911.                         =FWRITE(bio, '"Community Economic Devmt",')
  912.                     CASE CIVIC2 == 'CRSB'
  913.                         =FWRITE(bio, '"CRS/CRB",')
  914.                     CASE CIVIC2 == 'DELQ'
  915.                         =FWRITE(bio, '"Delinquency/Tough Love",')
  916.                     CASE CIVIC2 == 'EAST'
  917.                         =FWRITE(bio, '"Easter Seals/Handicapped",')
  918.                     CASE CIVIC2 == 'EEMC'
  919.                         =FWRITE(bio, '"Eagles/Elks/Moose Clubs",')
  920.                     CASE CIVIC2 == 'ENVR'
  921.                         =FWRITE(bio, '"Environmental Concerns",')
  922.                     CASE CIVIC2 == 'FOST'
  923.                         =FWRITE(bio, '"Foster Care/Adoption",')
  924.                     CASE CIVIC2 == 'GRPE'
  925.                         =FWRITE(bio, '"Green Peace",')
  926.                     CASE CIVIC2 == 'HOBL'
  927.                         =FWRITE(bio, '"Home Builders",')
  928.                     CASE CIVIC2 == 'HOLS'
  929.                         =FWRITE(bio, '"Homeless",')
  930.                     CASE CIVIC2 == 'HOME'
  931.                         =FWRITE(bio, '"Home Owners Association",')
  932.                     CASE CIVIC2 == 'HOSP'
  933.                         =FWRITE(bio, '"Hospital Volunteer",')
  934.                     CASE CIVIC2 == 'HUMA'
  935.                         =FWRITE(bio, '"Humane Society",')
  936.                     CASE CIVIC2 == 'JRLG'
  937.                         =FWRITE(bio, '"Jr. League",')
  938.                     CASE CIVIC2 == 'KIWA'
  939.                         =FWRITE(bio, '"Kiwanis",')
  940.                     CASE CIVIC2 == 'KNCO'
  941.                         =FWRITE(bio, '"Knights of Columbus",')
  942.                     CASE CIVIC2 == 'LION'
  943.                         =FWRITE(bio, '"Lions Clubs",')
  944.                     CASE CIVIC2 == 'LITL'
  945.                         =FWRITE(bio, '"Little League",')
  946.                     CASE CIVIC2 == 'MAKE'
  947.                         =FWRITE(bio, '"Make-A-Wish",')
  948.                     CASE CIVIC2 == 'MASO'
  949.                         =FWRITE(bio, '"Masons/Eastern Star/Shriners",')
  950.                     CASE CIVIC2 == 'MEAL'
  951.                         =FWRITE(bio, '"Meals on Wheels",')
  952.                     CASE CIVIC2 == 'MEDL'
  953.                         =FWRITE(bio, '"Medical Auxillary",')
  954.                     CASE CIVIC2 == 'MS  '
  955.                         =FWRITE(bio, '"Multiple Sclerosis",')
  956.                     CASE CIVIC2 == 'OPT '
  957.                         =FWRITE(bio, '"Optimist",')
  958.                     CASE CIVIC2 == 'PTAO'
  959.                         =FWRITE(bio, '"PTA/PTO",')
  960.                     CASE CIVIC2 == 'POLI'
  961.                         =FWRITE(bio, '"Politics/Political Clubs",')
  962.                     CASE CIVIC2 == 'REDC'
  963.                         =FWRITE(bio, '"Red Cross",')
  964.                     CASE CIVIC2 == 'RETD'
  965.                         =FWRITE(bio, '"Retarded People",')
  966.                     CASE CIVIC2 == 'RONM'
  967.                         =FWRITE(bio, '"Ronald McDonald House",')
  968.                     CASE CIVIC2 == 'ROTY'
  969.                         =FWRITE(bio, '"Rotary",')
  970.                     CASE CIVIC2 == 'SADD'
  971.                         =FWRITE(bio, '"SADD/MADD",')
  972.                     CASE CIVIC2 == 'SIER'
  973.                         =FWRITE(bio, '"Sierra Club",')
  974.                     CASE CIVIC2 == 'SPOL'
  975.                         =FWRITE(bio, '"Special Olympics",')
  976.                     CASE CIVIC2 == 'STDY'
  977.                         =FWRITE(bio, '"Study Club",')
  978.                     CASE CIVIC2 == 'TOAS'
  979.                         =FWRITE(bio, '"Toastmasters",')
  980.                     CASE CIVIC2 == 'UNIT'
  981.                         =FWRITE(bio, '"United Way",')
  982.                     CASE CIVIC2 == 'VF  '
  983.                         =FWRITE(bio, '"VFW/Am Legion",')
  984.                     CASE CIVIC2 == 'WC  '
  985.                         =FWRITE(bio, '"Womens Council of Realtors",')
  986.                     CASE CIVIC2 == 'YMCA'
  987.                         =FWRITE(bio, '"YMCA/YWCA",')
  988.                       OTHERWISE
  989.                           =FWRITE(bio, ',')
  990.                   ENDCASE
  991.               ELSE
  992.                 =FWRITE(bio, ',')
  993.               ENDIF    
  994.                 
  995.              IF NOT EMPTY(TRIM(CIVIC1))
  996.                 DO CASE                 
  997.                     CASE CIVIC3 == 'AGED'
  998.                         =FWRITE(bio, '"Aged Volunteer",')
  999.                     CASE CIVIC3 == 'ALCO'
  1000.                         =FWRITE(bio, '"AlcoholicsAnon/Al Anon",')
  1001.                     CASE CIVIC3 == 'ARMD'
  1002.                         =FWRITE(bio, '"Armed Forces Reserves",')
  1003.                     CASE CIVIC3 == 'BATT'
  1004.                         =FWRITE(bio, '"Battered/Sexual Abuse",')
  1005.                     CASE CIVIC3 == 'BGCL'
  1006.                         =FWRITE(bio, '"Boys/Girls Clubs",')
  1007.                     CASE CIVIC3 == 'BGSC'
  1008.                         =FWRITE(bio, '"Boy/Girl Scouts",')
  1009.                     CASE CIVIC3 == 'BOAR'
  1010.                         =FWRITE(bio, '"Board of Realtors",')
  1011.                     CASE CIVIC3 == 'BUSW'
  1012.                         =FWRITE(bio, '"Businesswomens Clubs",')
  1013.                     CASE CIVIC3 == 'CANC'
  1014.                         =FWRITE(bio, '"Cancer Society",')
  1015.                     CASE CIVIC3 == 'CARE'
  1016.                         =FWRITE(bio, '"CARES",')
  1017.                     CASE CIVIC3 == 'CIVI'
  1018.                         =FWRITE(bio, '"Civic Activities",')
  1019.                     CASE CIVIC3 == 'CF  '
  1020.                         =FWRITE(bio, '"Cystic Fibrosis",')
  1021.                     CASE CIVIC3 == 'CCJC'
  1022.                         =FWRITE(bio, '"Chamber of Commerce/Jaycees",')
  1023.                     CASE CIVIC3 == 'CHSC'
  1024.                         =FWRITE(bio, '"Church/School Volunteer",')
  1025.                     CASE CIVIC3 == 'CMN '
  1026.                         =FWRITE(bio, '"Childrens Miracle Network",')
  1027.                     CASE CIVIC3 == 'COAC'
  1028.                         =FWRITE(bio, '"Coach Volunteer",')
  1029.                     CASE CIVIC3 == 'COLL'
  1030.                         =FWRITE(bio, '"College/Frat Alumni",')
  1031.                     CASE CIVIC3 == 'COMM'
  1032.                         =FWRITE(bio, '"Community Economic Devmt",')
  1033.                     CASE CIVIC3 == 'CRSB'
  1034.                         =FWRITE(bio, '"CRS/CRB",')
  1035.                     CASE CIVIC3 == 'DELQ'
  1036.                         =FWRITE(bio, '"Delinquency/Tough Love",')
  1037.                     CASE CIVIC3 == 'EAST'
  1038.                         =FWRITE(bio, '"Easter Seals/Handicapped",')
  1039.                     CASE CIVIC3 == 'EEMC'
  1040.                         =FWRITE(bio, '"Eagles/Elks/Moose Clubs",')
  1041.                     CASE CIVIC3 == 'ENVR'
  1042.                         =FWRITE(bio, '"Environmental Concerns",')
  1043.                     CASE CIVIC3 == 'FOST'
  1044.                         =FWRITE(bio, '"Foster Care/Adoption",')
  1045.                     CASE CIVIC3 == 'GRPE'
  1046.                         =FWRITE(bio, '"Green Peace",')
  1047.                     CASE CIVIC3 == 'HOBL'
  1048.                         =FWRITE(bio, '"Home Builders",')
  1049.                     CASE CIVIC3 == 'HOLS'
  1050.                         =FWRITE(bio, '"Homeless",')
  1051.                     CASE CIVIC3 == 'HOME'
  1052.                         =FWRITE(bio, '"Home Owners Association",')
  1053.                     CASE CIVIC3 == 'HOSP'
  1054.                         =FWRITE(bio, '"Hospital Volunteer",')
  1055.                     CASE CIVIC3 == 'HUMA'
  1056.                         =FWRITE(bio, '"Humane Society",')
  1057.                     CASE CIVIC3 == 'JRLG'
  1058.                         =FWRITE(bio, '"Jr. League",')
  1059.                     CASE CIVIC3 == 'KIWA'
  1060.                         =FWRITE(bio, '"Kiwanis",')
  1061.                     CASE CIVIC3 == 'KNCO'
  1062.                         =FWRITE(bio, '"Knights of Columbus",')
  1063.                     CASE CIVIC3 == 'LION'
  1064.                         =FWRITE(bio, '"Lions Clubs",')
  1065.                     CASE CIVIC3 == 'LITL'
  1066.                         =FWRITE(bio, '"Little League",')
  1067.                     CASE CIVIC3 == 'MAKE'
  1068.                         =FWRITE(bio, '"Make-A-Wish",')
  1069.                     CASE CIVIC3 == 'MASO'
  1070.                         =FWRITE(bio, '"Masons/Eastern Star/Shriners",')
  1071.                     CASE CIVIC3 == 'MEAL'
  1072.                         =FWRITE(bio, '"Meals on Wheels",')
  1073.                     CASE CIVIC3 == 'MEDL'
  1074.                         =FWRITE(bio, '"Medical Auxillary",')
  1075.                     CASE CIVIC3 == 'MS  '
  1076.                         =FWRITE(bio, '"Multiple Sclerosis",')
  1077.                     CASE CIVIC3 == 'OPT '
  1078.                         =FWRITE(bio, '"Optimist",')
  1079.                     CASE CIVIC3 == 'PTAO'
  1080.                         =FWRITE(bio, '"PTA/PTO",')
  1081.                     CASE CIVIC3 == 'POLI'
  1082.                         =FWRITE(bio, '"Politics/Political Clubs",')
  1083.                     CASE CIVIC3 == 'REDC'
  1084.                         =FWRITE(bio, '"Red Cross",')
  1085.                     CASE CIVIC3 == 'RETD'
  1086.                         =FWRITE(bio, '"Retarded People",')
  1087.                     CASE CIVIC3 == 'RONM'
  1088.                         =FWRITE(bio, '"Ronald McDonald House",')
  1089.                     CASE CIVIC3 == 'ROTY'
  1090.                         =FWRITE(bio, '"Rotary",')
  1091.                     CASE CIVIC3 == 'SADD'
  1092.                         =FWRITE(bio, '"SADD/MADD",')
  1093.                     CASE CIVIC3 == 'SIER'
  1094.                         =FWRITE(bio, '"Sierra Club",')
  1095.                     CASE CIVIC3 == 'SPOL'
  1096.                         =FWRITE(bio, '"Special Olympics",')
  1097.                     CASE CIVIC3 == 'STDY'
  1098.                         =FWRITE(bio, '"Study Club",')
  1099.                     CASE CIVIC3 == 'TOAS'
  1100.                         =FWRITE(bio, '"Toastmasters",')
  1101.                     CASE CIVIC3 == 'UNIT'
  1102.                         =FWRITE(bio, '"United Way",')
  1103.                     CASE CIVIC3 == 'VF  '
  1104.                         =FWRITE(bio, '"VFW/Am Legion",')
  1105.                     CASE CIVIC3 == 'WC  '
  1106.                         =FWRITE(bio, '"Womens Council of Realtors",')
  1107.                     CASE CIVIC3 == 'YMCA'
  1108.                         =FWRITE(bio, '"YMCA/YWCA",')
  1109.                       OTHERWISE
  1110.                           =FWRITE(bio, ',')
  1111.                   ENDCASE
  1112.               ELSE
  1113.                   =FWRITE(bio, ',')
  1114.               ENDIF    
  1115.                 
  1116.             IF NOT EMPTY(TRIM(HOBBY1))
  1117.                 DO CASE
  1118.                 
  1119.                     CASE HOBBY1 == 'ANTC' 
  1120.                         =FWRITE(bio, '"Antique Cars",')
  1121.                     CASE HOBBY1 == 'ANTQ' 
  1122.                         =FWRITE(bio, '"Antiques",')
  1123.                     CASE HOBBY1 == 'ARCH' 
  1124.                         =FWRITE(bio, '"Architecture",')
  1125.                     CASE HOBBY1 == 'ART '
  1126.                         =FWRITE(bio, '"Art/Painting",')
  1127.                     CASE HOBBY1 == 'AUTO' 
  1128.                         =FWRITE(bio, '"Auto Racing",')
  1129.                     CASE HOBBY1 == 'BASK' 
  1130.                         =FWRITE(bio, '"Basketball",')
  1131.                     CASE HOBBY1 == 'BILL' 
  1132.                         =FWRITE(bio, '"Billiards",')
  1133.                     CASE HOBBY1 == 'BIKE' 
  1134.                         =FWRITE(bio, '"Biking",')
  1135.                     CASE HOBBY1 == 'BIRD' 
  1136.                         =FWRITE(bio, '"Bird Watching/Audubon",')
  1137.                     CASE HOBBY1 == 'BOAT' 
  1138.                         =FWRITE(bio, '"Boating/Sailing",')
  1139.                     CASE HOBBY1 == 'BOWL' 
  1140.                         =FWRITE(bio, '"Bowling",')
  1141.                     CASE HOBBY1 == 'BRID' 
  1142.                         =FWRITE(bio, '"Bridge",')
  1143.                     CASE HOBBY1 == 'CHOR' 
  1144.                         =FWRITE(bio, '"Choir/Singing",')
  1145.                     CASE HOBBY1 == 'CHRK' 
  1146.                         =FWRITE(bio, '"Chess/Checkers/Games",')
  1147.                     CASE HOBBY1 == 'COLL' 
  1148.                         =FWRITE(bio, '"Collecting",')
  1149.                     CASE HOBBY1 == 'COMP' 
  1150.                         =FWRITE(bio, '"Computers",')
  1151.                     CASE HOBBY1 == 'COOK' 
  1152.                         =FWRITE(bio, '"Cooking",')
  1153.                     CASE HOBBY1 == 'CURL' 
  1154.                         =FWRITE(bio, '"Curling",')
  1155.                     CASE HOBBY1 == 'DANC' 
  1156.                         =FWRITE(bio, '"Dancing",')
  1157.                     CASE HOBBY1 == 'DOGS' 
  1158.                         =FWRITE(bio, '"Dogs/Cats",')
  1159.                     CASE HOBBY1 == 'DRAM' 
  1160.                         =FWRITE(bio, '"Drama Groups",')
  1161.                     CASE HOBBY1 == 'EDUC' 
  1162.                         =FWRITE(bio, '"Education/Training/Growth",')
  1163.                     CASE HOBBY1 == 'FARM' 
  1164.                         =FWRITE(bio, '"Farming",')
  1165.                     CASE HOBBY1 == 'FITN' 
  1166.                         =FWRITE(bio, '"Fitness",')
  1167.                     CASE HOBBY1 == 'FLY '
  1168.                         =FWRITE(bio, '"Flying",')
  1169.                     CASE HOBBY1 == 'FOOD' 
  1170.                         =FWRITE(bio, '"Food/Wine",')
  1171.                     CASE HOBBY1 == 'GAMB' 
  1172.                         =FWRITE(bio, '"Gambling",')
  1173.                     CASE HOBBY1 == 'GARD' 
  1174.                         =FWRITE(bio, '"Gardening",')
  1175.                     CASE HOBBY1 == 'GOLF' 
  1176.                         =FWRITE(bio, '"Golf",')
  1177.                     CASE HOBBY1 == 'HIKE' 
  1178.                         =FWRITE(bio, '"Hiking/Camping",')
  1179.                     CASE HOBBY1 == 'HIST' 
  1180.                         =FWRITE(bio, '"Historical Society",')
  1181.                     CASE HOBBY1 == 'HOCK' 
  1182.                         =FWRITE(bio, '"Hockey",')
  1183.                     CASE HOBBY1 == 'HORS' 
  1184.                         =FWRITE(bio, '"Horses",')
  1185.                     CASE HOBBY1 == 'HOT '
  1186.                         =FWRITE(bio, '"Hot Air Ballooning",')
  1187.                     CASE HOBBY1 == 'HUNT' 
  1188.                         =FWRITE(bio, '"Hunt/Fish",')
  1189.                     CASE HOBBY1 == 'INDE' 
  1190.                         =FWRITE(bio, '"Interior Decorating",')
  1191.                     CASE HOBBY1 == 'MART' 
  1192.                         =FWRITE(bio, '"Martial Arts",')
  1193.                     CASE HOBBY1 == 'MODL' 
  1194.                         =FWRITE(bio, '"Model Planes/Trains",')
  1195.                     CASE HOBBY1 == 'MOTO' 
  1196.                         =FWRITE(bio, '"Motorcycles",')
  1197.                     CASE HOBBY1 == 'MUIN' 
  1198.                         =FWRITE(bio, '"Musical Instruments",')
  1199.                     CASE HOBBY1 == 'MUSE' 
  1200.                         =FWRITE(bio, '"Museums",')
  1201.                     CASE HOBBY1 == 'MUSI' 
  1202.                         =FWRITE(bio, '"Music/Opera/Ballet/Symphony",')
  1203.                     CASE HOBBY1 == 'PHOT' 
  1204.                         =FWRITE(bio, '"Photography",')
  1205.                     CASE HOBBY1 == 'READ' 
  1206.                         =FWRITE(bio, '"Reading",')
  1207.                     CASE HOBBY1 == 'SCUB' 
  1208.                         =FWRITE(bio, '"Scuba/Snorkel",')
  1209.                     CASE HOBBY1 == 'SEW '
  1210.                         =FWRITE(bio, '"Sewing/Needlecraft/Quilting",')
  1211.                     CASE HOBBY1 == 'SHOP' 
  1212.                         =FWRITE(bio, '"Shoppping",')
  1213.                     CASE HOBBY1 == 'SHOT' 
  1214.                         =FWRITE(bio, '"Target/Trap Shooting",')
  1215.                     CASE HOBBY1 == 'SNOM' 
  1216.                         =FWRITE(bio, '"Snowmobiling",')
  1217.                     CASE HOBBY1 == 'SNOS' 
  1218.                         =FWRITE(bio, '"Snowskiing",')
  1219.                     CASE HOBBY1 == 'SOCC' 
  1220.                         =FWRITE(bio, '"Soccer",')
  1221.                     CASE HOBBY1 == 'SOFT' 
  1222.                         =FWRITE(bio, '"Softball",')
  1223.                     CASE HOBBY1 == 'SPEC' 
  1224.                         =FWRITE(bio, '"Spectator Sports",')
  1225.                     CASE HOBBY1 == 'SQUA' 
  1226.                         =FWRITE(bio, '"Squash",')
  1227.                     CASE HOBBY1 == 'STGL' 
  1228.                         =FWRITE(bio, '"Stained Glass",')
  1229.                     CASE HOBBY1 == 'SWIM' 
  1230.                         =FWRITE(bio, '"Swimming",')
  1231.                     CASE HOBBY1 == 'TENN' 
  1232.                         =FWRITE(bio, '"Tennis",')
  1233.                     CASE HOBBY1 == 'THEA' 
  1234.                         =FWRITE(bio, '"Theatre/Movies",')
  1235.                     CASE HOBBY1 == 'TRAV' 
  1236.                         =FWRITE(bio, '"Travel",')
  1237.                     CASE HOBBY1 == 'VOLL' 
  1238.                         =FWRITE(bio, '"Volleyball",')
  1239.                     CASE HOBBY1 == 'WATS' 
  1240.                         =FWRITE(bio, '"Water Skiing",')
  1241.                     CASE HOBBY1 == 'WELF' 
  1242.                         =FWRITE(bio, '"Weightlifting",')
  1243.                     CASE HOBBY1 == 'WOOD' 
  1244.                         =FWRITE(bio, '"Woodworking",')
  1245.                     CASE HOBBY1 == 'WRIT' 
  1246.                         =FWRITE(bio, '"Writing",')
  1247.                     CASE HOBBY1 == 'YOGA' 
  1248.                         =FWRITE(bio, '"Yoga/Meditation",')
  1249.                     OTHERWISE    
  1250.                         =FWRITE(bio, ',')
  1251.  
  1252.                 ENDCASE
  1253.             ELSE
  1254.                 =FWRITE(bio, ',')
  1255.             ENDIF
  1256.                 
  1257.             IF NOT EMPTY(TRIM(HOBBY2))
  1258.                 DO CASE
  1259.                 
  1260.                     CASE HOBBY2 == 'ANTC' 
  1261.                         =FWRITE(bio, '"Antique Cars",')
  1262.                     CASE HOBBY2 == 'ANTQ' 
  1263.                         =FWRITE(bio, '"Antiques",')
  1264.                     CASE HOBBY2 == 'ARCH' 
  1265.                         =FWRITE(bio, '"Architecture",')
  1266.                     CASE HOBBY2 == 'ART '
  1267.                         =FWRITE(bio, '"Art/Painting",')
  1268.                     CASE HOBBY2 == 'AUTO' 
  1269.                         =FWRITE(bio, '"Auto Racing",')
  1270.                     CASE HOBBY2 == 'BASK' 
  1271.                         =FWRITE(bio, '"Basketball",')
  1272.                     CASE HOBBY2 == 'BILL' 
  1273.                         =FWRITE(bio, '"Billiards",')
  1274.                     CASE HOBBY2 == 'BIKE' 
  1275.                         =FWRITE(bio, '"Biking",')
  1276.                     CASE HOBBY2 == 'BIRD' 
  1277.                         =FWRITE(bio, '"Bird Watching/Audubon",')
  1278.                     CASE HOBBY2 == 'BOAT' 
  1279.                         =FWRITE(bio, '"Boating/Sailing",')
  1280.                     CASE HOBBY2 == 'BOWL' 
  1281.                         =FWRITE(bio, '"Bowling",')
  1282.                     CASE HOBBY2 == 'BRID' 
  1283.                         =FWRITE(bio, '"Bridge",')
  1284.                     CASE HOBBY2 == 'CHOR' 
  1285.                         =FWRITE(bio, '"Choir/Singing",')
  1286.                     CASE HOBBY2 == 'CHRK' 
  1287.                         =FWRITE(bio, '"Chess/Checkers/Games",')
  1288.                     CASE HOBBY2 == 'COLL' 
  1289.                         =FWRITE(bio, '"Collecting",')
  1290.                     CASE HOBBY2 == 'COMP' 
  1291.                         =FWRITE(bio, '"Computers",')
  1292.                     CASE HOBBY2 == 'COOK' 
  1293.                         =FWRITE(bio, '"Cooking",')
  1294.                     CASE HOBBY2 == 'CURL' 
  1295.                         =FWRITE(bio, '"Curling",')
  1296.                     CASE HOBBY2 == 'DANC' 
  1297.                         =FWRITE(bio, '"Dancing",')
  1298.                     CASE HOBBY2 == 'DOGS' 
  1299.                         =FWRITE(bio, '"Dogs/Cats",')
  1300.                     CASE HOBBY2 == 'DRAM' 
  1301.                         =FWRITE(bio, '"Drama Groups",')
  1302.                     CASE HOBBY2 == 'EDUC' 
  1303.                         =FWRITE(bio, '"Education/Training/Growth",')
  1304.                     CASE HOBBY2 == 'FARM' 
  1305.                         =FWRITE(bio, '"Farming",')
  1306.                     CASE HOBBY2 == 'FITN' 
  1307.                         =FWRITE(bio, '"Fitness",')
  1308.                     CASE HOBBY2 == 'FLY '
  1309.                         =FWRITE(bio, '"Flying",')
  1310.                     CASE HOBBY2 == 'FOOD' 
  1311.                         =FWRITE(bio, '"Food/Wine",')
  1312.                     CASE HOBBY2 == 'GAMB' 
  1313.                         =FWRITE(bio, '"Gambling",')
  1314.                     CASE HOBBY2 == 'GARD' 
  1315.                         =FWRITE(bio, '"Gardening",')
  1316.                     CASE HOBBY2 == 'GOLF' 
  1317.                         =FWRITE(bio, '"Golf",')
  1318.                     CASE HOBBY2 == 'HIKE' 
  1319.                         =FWRITE(bio, '"Hiking/Camping",')
  1320.                     CASE HOBBY2 == 'HIST' 
  1321.                         =FWRITE(bio, '"Historical Society",')
  1322.                     CASE HOBBY2 == 'HOCK' 
  1323.                         =FWRITE(bio, '"Hockey",')
  1324.                     CASE HOBBY2 == 'HORS' 
  1325.                         =FWRITE(bio, '"Horses",')
  1326.                     CASE HOBBY2 == 'HOT '
  1327.                         =FWRITE(bio, '"Hot Air Ballooning",')
  1328.                     CASE HOBBY2 == 'HUNT' 
  1329.                         =FWRITE(bio, '"Hunt/Fish",')
  1330.                     CASE HOBBY2 == 'INDE' 
  1331.                         =FWRITE(bio, '"Interior Decorating",')
  1332.                     CASE HOBBY2 == 'MART' 
  1333.                         =FWRITE(bio, '"Martial Arts",')
  1334.                     CASE HOBBY2 == 'MODL' 
  1335.                         =FWRITE(bio, '"Model Planes/Trains",')
  1336.                     CASE HOBBY2 == 'MOTO' 
  1337.                         =FWRITE(bio, '"Motorcycles",')
  1338.                     CASE HOBBY2 == 'MUIN' 
  1339.                         =FWRITE(bio, '"Musical Instruments",')
  1340.                     CASE HOBBY2 == 'MUSE' 
  1341.                         =FWRITE(bio, '"Museums",')
  1342.                     CASE HOBBY2 == 'MUSI' 
  1343.                         =FWRITE(bio, '"Music/Opera/Ballet/Symphony",')
  1344.                     CASE HOBBY2 == 'PHOT' 
  1345.                         =FWRITE(bio, '"Photography",')
  1346.                     CASE HOBBY2 == 'READ' 
  1347.                         =FWRITE(bio, '"Reading",')
  1348.                     CASE HOBBY2 == 'SCUB' 
  1349.                         =FWRITE(bio, '"Scuba/Snorkel",')
  1350.                     CASE HOBBY2 == 'SEW '
  1351.                         =FWRITE(bio, '"Sewing/Needlecraft/Quilting",')
  1352.                     CASE HOBBY2 == 'SHOP' 
  1353.                         =FWRITE(bio, '"Shoppping",')
  1354.                     CASE HOBBY2 == 'SHOT' 
  1355.                         =FWRITE(bio, '"Target/Trap Shooting",')
  1356.                     CASE HOBBY2 == 'SNOM' 
  1357.                         =FWRITE(bio, '"Snowmobiling",')
  1358.                     CASE HOBBY2 == 'SNOS' 
  1359.                         =FWRITE(bio, '"Snowskiing",')
  1360.                     CASE HOBBY2 == 'SOCC' 
  1361.                         =FWRITE(bio, '"Soccer",')
  1362.                     CASE HOBBY2 == 'SOFT' 
  1363.                         =FWRITE(bio, '"Softball",')
  1364.                     CASE HOBBY2 == 'SPEC' 
  1365.                         =FWRITE(bio, '"Spectator Sports",')
  1366.                     CASE HOBBY2 == 'SQUA' 
  1367.                         =FWRITE(bio, '"Squash",')
  1368.                     CASE HOBBY2 == 'STGL' 
  1369.                         =FWRITE(bio, '"Stained Glass",')
  1370.                     CASE HOBBY2 == 'SWIM' 
  1371.                         =FWRITE(bio, '"Swimming",')
  1372.                     CASE HOBBY2 == 'TENN' 
  1373.                         =FWRITE(bio, '"Tennis",')
  1374.                     CASE HOBBY2 == 'THEA' 
  1375.                         =FWRITE(bio, '"Theatre/Movies",')
  1376.                     CASE HOBBY2 == 'TRAV' 
  1377.                         =FWRITE(bio, '"Travel",')
  1378.                     CASE HOBBY2 == 'VOLL' 
  1379.                         =FWRITE(bio, '"Volleyball",')
  1380.                     CASE HOBBY2 == 'WATS' 
  1381.                         =FWRITE(bio, '"Water Skiing",')
  1382.                     CASE HOBBY2 == 'WELF' 
  1383.                         =FWRITE(bio, '"Weightlifting",')
  1384.                     CASE HOBBY2 == 'WOOD' 
  1385.                         =FWRITE(bio, '"Woodworking",')
  1386.                     CASE HOBBY2 == 'WRIT' 
  1387.                         =FWRITE(bio, '"Writing",')
  1388.                     CASE HOBBY2 == 'YOGA' 
  1389.                         =FWRITE(bio, '"Yoga/Meditation",')
  1390.                     OTHERWISE    
  1391.                         =FWRITE(bio, ',')
  1392.  
  1393.                 ENDCASE
  1394.             ELSE
  1395.                 =FWRITE(bio, ',')
  1396.             ENDIF
  1397.             
  1398.             IF NOT EMPTY(TRIM(HOBBY3))
  1399.                 DO CASE
  1400.                 
  1401.                     CASE HOBBY3 == 'ANTC' 
  1402.                         =FWRITE(bio, '"Antique Cars",')
  1403.                     CASE HOBBY3 == 'ANTQ' 
  1404.                         =FWRITE(bio, '"Antiques",')
  1405.                     CASE HOBBY3 == 'ARCH' 
  1406.                         =FWRITE(bio, '"Architecture",')
  1407.                     CASE HOBBY3 == 'ART '
  1408.                         =FWRITE(bio, '"Art/Painting",')
  1409.                     CASE HOBBY3 == 'AUTO' 
  1410.                         =FWRITE(bio, '"Auto Racing",')
  1411.                     CASE HOBBY3 == 'BASK' 
  1412.                         =FWRITE(bio, '"Basketball",')
  1413.                     CASE HOBBY3 == 'BILL' 
  1414.                         =FWRITE(bio, '"Billiards",')
  1415.                     CASE HOBBY3 == 'BIKE' 
  1416.                         =FWRITE(bio, '"Biking",')
  1417.                     CASE HOBBY3 == 'BIRD' 
  1418.                         =FWRITE(bio, '"Bird Watching/Audubon",')
  1419.                     CASE HOBBY3 == 'BOAT' 
  1420.                         =FWRITE(bio, '"Boating/Sailing",')
  1421.                     CASE HOBBY3 == 'BOWL' 
  1422.                         =FWRITE(bio, '"Bowling",')
  1423.                     CASE HOBBY3 == 'BRID' 
  1424.                         =FWRITE(bio, '"Bridge",')
  1425.                     CASE HOBBY3 == 'CHOR' 
  1426.                         =FWRITE(bio, '"Choir/Singing",')
  1427.                     CASE HOBBY3 == 'CHRK' 
  1428.                         =FWRITE(bio, '"Chess/Checkers/Games",')
  1429.                     CASE HOBBY3 == 'COLL' 
  1430.                         =FWRITE(bio, '"Collecting",')
  1431.                     CASE HOBBY3 == 'COMP' 
  1432.                         =FWRITE(bio, '"Computers",')
  1433.                     CASE HOBBY3 == 'COOK' 
  1434.                         =FWRITE(bio, '"Cooking",')
  1435.                     CASE HOBBY3 == 'CURL' 
  1436.                         =FWRITE(bio, '"Curling",')
  1437.                     CASE HOBBY3 == 'DANC' 
  1438.                         =FWRITE(bio, '"Dancing",')
  1439.                     CASE HOBBY3 == 'DOGS' 
  1440.                         =FWRITE(bio, '"Dogs/Cats",')
  1441.                     CASE HOBBY3 == 'DRAM' 
  1442.                         =FWRITE(bio, '"Drama Groups",')
  1443.                     CASE HOBBY3 == 'EDUC' 
  1444.                         =FWRITE(bio, '"Education/Training/Growth",')
  1445.                     CASE HOBBY3 == 'FARM' 
  1446.                         =FWRITE(bio, '"Farming",')
  1447.                     CASE HOBBY3 == 'FITN' 
  1448.                         =FWRITE(bio, '"Fitness",')
  1449.                     CASE HOBBY3 == 'FLY '
  1450.                         =FWRITE(bio, '"Flying",')
  1451.                     CASE HOBBY3 == 'FOOD' 
  1452.                         =FWRITE(bio, '"Food/Wine",')
  1453.                     CASE HOBBY3 == 'GAMB' 
  1454.                         =FWRITE(bio, '"Gambling",')
  1455.                     CASE HOBBY3 == 'GARD' 
  1456.                         =FWRITE(bio, '"Gardening",')
  1457.                     CASE HOBBY3 == 'GOLF' 
  1458.                         =FWRITE(bio, '"Golf",')
  1459.                     CASE HOBBY3 == 'HIKE' 
  1460.                         =FWRITE(bio, '"Hiking/Camping",')
  1461.                     CASE HOBBY3 == 'HIST' 
  1462.                         =FWRITE(bio, '"Historical Society",')
  1463.                     CASE HOBBY3 == 'HOCK' 
  1464.                         =FWRITE(bio, '"Hockey",')
  1465.                     CASE HOBBY3 == 'HORS' 
  1466.                         =FWRITE(bio, '"Horses",')
  1467.                     CASE HOBBY3 == 'HOT '
  1468.                         =FWRITE(bio, '"Hot Air Ballooning",')
  1469.                     CASE HOBBY3 == 'HUNT' 
  1470.                         =FWRITE(bio, '"Hunt/Fish",')
  1471.                     CASE HOBBY3 == 'INDE' 
  1472.                         =FWRITE(bio, '"Interior Decorating",')
  1473.                     CASE HOBBY3 == 'MART' 
  1474.                         =FWRITE(bio, '"Martial Arts",')
  1475.                     CASE HOBBY3 == 'MODL' 
  1476.                         =FWRITE(bio, '"Model Planes/Trains",')
  1477.                     CASE HOBBY3 == 'MOTO' 
  1478.                         =FWRITE(bio, '"Motorcycles",')
  1479.                     CASE HOBBY3 == 'MUIN' 
  1480.                         =FWRITE(bio, '"Musical Instruments",')
  1481.                     CASE HOBBY3 == 'MUSE' 
  1482.                         =FWRITE(bio, '"Museums",')
  1483.                     CASE HOBBY3 == 'MUSI' 
  1484.                         =FWRITE(bio, '"Music/Opera/Ballet/Symphony",')
  1485.                     CASE HOBBY3 == 'PHOT' 
  1486.                         =FWRITE(bio, '"Photography",')
  1487.                     CASE HOBBY3 == 'READ' 
  1488.                         =FWRITE(bio, '"Reading",')
  1489.                     CASE HOBBY3 == 'SCUB' 
  1490.                         =FWRITE(bio, '"Scuba/Snorkel",')
  1491.                     CASE HOBBY3 == 'SEW '
  1492.                         =FWRITE(bio, '"Sewing/Needlecraft/Quilting",')
  1493.                     CASE HOBBY3 == 'SHOP' 
  1494.                         =FWRITE(bio, '"Shoppping",')
  1495.                     CASE HOBBY3 == 'SHOT' 
  1496.                         =FWRITE(bio, '"Target/Trap Shooting",')
  1497.                     CASE HOBBY3 == 'SNOM' 
  1498.                         =FWRITE(bio, '"Snowmobiling",')
  1499.                     CASE HOBBY3 == 'SNOS' 
  1500.                         =FWRITE(bio, '"Snowskiing",')
  1501.                     CASE HOBBY3 == 'SOCC' 
  1502.                         =FWRITE(bio, '"Soccer",')
  1503.                     CASE HOBBY3 == 'SOFT' 
  1504.                         =FWRITE(bio, '"Softball",')
  1505.                     CASE HOBBY3 == 'SPEC' 
  1506.                         =FWRITE(bio, '"Spectator Sports",')
  1507.                     CASE HOBBY3 == 'SQUA' 
  1508.                         =FWRITE(bio, '"Squash",')
  1509.                     CASE HOBBY3 == 'STGL' 
  1510.                         =FWRITE(bio, '"Stained Glass",')
  1511.                     CASE HOBBY3 == 'SWIM' 
  1512.                         =FWRITE(bio, '"Swimming",')
  1513.                     CASE HOBBY3 == 'TENN' 
  1514.                         =FWRITE(bio, '"Tennis",')
  1515.                     CASE HOBBY3 == 'THEA' 
  1516.                         =FWRITE(bio, '"Theatre/Movies",')
  1517.                     CASE HOBBY3 == 'TRAV' 
  1518.                         =FWRITE(bio, '"Travel",')
  1519.                     CASE HOBBY3 == 'VOLL' 
  1520.                         =FWRITE(bio, '"Volleyball",')
  1521.                     CASE HOBBY3 == 'WATS' 
  1522.                         =FWRITE(bio, '"Water Skiing",')
  1523.                     CASE HOBBY3 == 'WELF' 
  1524.                         =FWRITE(bio, '"Weightlifting",')
  1525.                     CASE HOBBY3 == 'WOOD' 
  1526.                         =FWRITE(bio, '"Woodworking",')
  1527.                     CASE HOBBY3 == 'WRIT' 
  1528.                         =FWRITE(bio, '"Writing",')
  1529.                     CASE HOBBY3 == 'YOGA' 
  1530.                         =FWRITE(bio, '"Yoga/Meditation",')
  1531.                     OTHERWISE    
  1532.                         =FWRITE(bio, ',')
  1533.  
  1534.                 ENDCASE
  1535.             ELSE
  1536.                 =FWRITE(bio, ',')
  1537.             ENDIF            
  1538.  
  1539.             IF NOT EMPTY(TRIM(MEMBER1))
  1540.                 =FWRITE(bio, '"'+TRIM(MEMBER1)+'",')
  1541.             ELSE
  1542.                 =FWRITE(bio, ',')
  1543.             ENDIF
  1544.                 
  1545.             IF NOT EMPTY(TRIM(MEMBER2))
  1546.                 =FWRITE(bio, '"'+TRIM(MEMBER2)+'",')
  1547.             ELSE
  1548.                 =FWRITE(bio, ',')
  1549.             ENDIF
  1550.                 
  1551.             IF NOT EMPTY(TRIM(MEMBER3))
  1552.                 =FWRITE(bio, '"'+TRIM(MEMBER3)+'",')
  1553.             ELSE
  1554.                 =FWRITE(bio, ',')
  1555.             ENDIF
  1556.                 
  1557.             IF NOT EMPTY(TRIM(Service1))
  1558.                 =FWRITE(bio, '"'+TRIM(Service1)+'",')
  1559.             ELSE
  1560.                 =FWRITE(bio, ',')
  1561.             ENDIF
  1562.                 
  1563.             IF NOT EMPTY(TRIM(Service2))
  1564.                 =FWRITE(bio, '"'+TRIM(Service2)+'",')
  1565.             ELSE
  1566.                 =FWRITE(bio, ',')
  1567.  
  1568.             ENDIF
  1569.                 
  1570.             IF NOT EMPTY(TRIM(Service3))
  1571.                 =FWRITE(bio, '"'+TRIM(Service3)+'",')
  1572.             ELSE
  1573.                 =FWRITE(bio, ',')
  1574.             ENDIF
  1575.                 
  1576.             IF NOT EMPTY(TRIM(Service4))
  1577.                 =FWRITE(bio, '"'+TRIM(Service4)+'",')
  1578.             ELSE
  1579.                 =FWRITE(bio, ',')
  1580.             ENDIF
  1581.                 
  1582.             IF NOT EMPTY(TRIM(Service5))
  1583.                 =FWRITE(bio, '"'+TRIM(Service5)+'",')
  1584.             ELSE
  1585.                 =FWRITE(bio, ',')
  1586.             ENDIF        
  1587.  
  1588.             IF NOT EMPTY(TRIM(Education))
  1589.                 =FWRITE(bio, '"'+TRIM(Education)+'",')
  1590.             ELSE
  1591.                 =FWRITE(bio, ',')
  1592.             ENDIF        
  1593.  
  1594.             IF NOT EMPTY(TRIM(Desig1))
  1595.                 =FWRITE(bio, '"'+TRIM(Desig1)+'",')
  1596.             ELSE
  1597.                 =FWRITE(bio, ',')
  1598.             ENDIF        
  1599.  
  1600.             IF NOT EMPTY(TRIM(Desig2))
  1601.                 =FWRITE(bio, '"'+TRIM(Desig2)+'",')
  1602.             ELSE
  1603.                 =FWRITE(bio, ',')
  1604.             ENDIF        
  1605.  
  1606.             IF NOT EMPTY(TRIM(Desig3))
  1607.                 =FWRITE(bio, '"'+TRIM(Desig3)+'",')
  1608.             ELSE
  1609.                 =FWRITE(bio, ',')
  1610.             ENDIF        
  1611.  
  1612.             IF NOT EMPTY(TRIM(Career))
  1613.                 =FWRITE(bio, '"'+TRIM(Career)+'",')
  1614.             ELSE
  1615.                 =FWRITE(bio, ',')
  1616.             ENDIF        
  1617.  
  1618.             IF NOT EMPTY(TRIM(Price_fr))
  1619.                 =FWRITE(bio, '"'+TRIM(Price_fr)+'",')
  1620.             ELSE
  1621.                 =FWRITE(bio, ',')
  1622.             ENDIF        
  1623.  
  1624.             IF NOT EMPTY(TRIM(Price_to))
  1625.                 =FWRITE(bio, '"'+TRIM(Price_to)+'",')
  1626.             ELSE
  1627.                 =FWRITE(bio, ',')
  1628.             ENDIF        
  1629.  
  1630.             IF NOT EMPTY(TRIM(Pref))
  1631.                 =FWRITE(bio, '"'+TRIM(Pref)+'",')
  1632.             ELSE
  1633.                 =FWRITE(bio, ',')
  1634.             ENDIF        
  1635.  
  1636.             IF NOT EMPTY(TRIM(Referal1))
  1637.                 =FWRITE(bio, '"'+TRIM(Referal1)+'",')
  1638.             ELSE
  1639.                 =FWRITE(bio, ',')
  1640.             ENDIF        
  1641.  
  1642.             IF NOT EMPTY(TRIM(Referal2))
  1643.                 =FWRITE(bio, '"'+TRIM(Referal2)+'",')
  1644.             ELSE
  1645.                 =FWRITE(bio, ',')
  1646.             ENDIF        
  1647.  
  1648.             IF NOT EMPTY(TRIM(Referal3))
  1649.                 =FWRITE(bio, '"'+TRIM(Referal3)+'",')
  1650.             ELSE
  1651.                 =FWRITE(bio, ',')
  1652.             ENDIF        
  1653.  
  1654.             IF NOT EMPTY(TRIM(Referal4))
  1655.                 =FWRITE(bio, '"'+TRIM(Referal4)+'",')
  1656.             ELSE
  1657.                 =FWRITE(bio, ',')
  1658.             ENDIF        
  1659.  
  1660.             IF NOT EMPTY(TRIM(ERCPaper))
  1661.                 =FWRITE(bio, '"'+TRIM(ERCPaper)+'",')
  1662.             ELSE
  1663.                 =FWRITE(bio, ',')
  1664.             ENDIF        
  1665.  
  1666.             IF NOT EMPTY(TRIM(Welcomekit))
  1667.                 =FWRITE(bio, '"'+TRIM(Welcomekit)+'",')
  1668.             ELSE
  1669.                 =FWRITE(bio, ',')
  1670.             ENDIF        
  1671.  
  1672.             IF NOT EMPTY(TRIM(Relocations))
  1673.                 =FWRITE(bio, TRIM(Relocations)+',')
  1674.             ELSE
  1675.                 =FWRITE(bio, ',')
  1676.             ENDIF        
  1677.  
  1678.             IF NOT EMPTY(TRIM(Picture))
  1679.                 =FWRITE(bio, '"'+TRIM(Picture)+'",')
  1680.             ELSE
  1681.                 =FWRITE(bio, ',')
  1682.             ENDIF        
  1683.  
  1684.             IF NOT EMPTY(TRIM(EntryDate))
  1685.                 =FWRITE(bio, TRIM(EntryDate)+',')
  1686.             ELSE
  1687.                 =FWRITE(bio, ',')
  1688.             ENDIF        
  1689.  
  1690.             IF NOT EMPTY(TRIM(BioSubs))
  1691.                 =FWRITE(bio, TRIM(BioSubs)+',')
  1692.             ELSE
  1693.                 =FWRITE(bio, ',')
  1694.             ENDIF        
  1695.  
  1696.             IF NOT EMPTY(TRIM(Info))
  1697.                 =FPUTS(bio, '"'+TRIM(Info)+'",')
  1698.             ELSE
  1699.                 =FPUTS(bio, ',')
  1700.             ENDIF        
  1701.             
  1702.         ENDIF
  1703.         
  1704. *    ENDIF
  1705.             
  1706.       Count = Count + 1    
  1707.  
  1708. IF Count % 2000 = 0
  1709.     ? Count
  1710. ENDIF
  1711.  
  1712.     
  1713. ENDDO
  1714.  
  1715. ? 'Total Records Processed:'+Count
  1716.  
  1717. CLOSE ALL
  1718.  
  1719. ERASE Roster.dbf
  1720. CREATE TABLE Roster ;
  1721.     (Region N(2), Office N(3), Asoc_Num N(3), Unique N(12), Name C(30), ;
  1722.     Nickname C(20),    Title C(2),    Posistion C(30), Spec1 C(3), ;
  1723.     Spec2 C(3), Lang1 C(20), Lang2 C(20), Lang3 C(20), License N(4), ;
  1724.     Join N(4), Sales N(6), Desig1 C(6), Desig2 C(6), Desig3 C(6), ;
  1725.     Desig4 C(6), Desig5 C(6), Desig6 C(6), Club C(4), ROF C(12), ;
  1726.     Comm1 C(40), Comm2 C(40), Comm3 C(40), Comm4 C(40), Comm5 C(40), ;
  1727.     OffName C(30), OffAdd1 C(30), OffAdd2 C(30), City C(17), ;
  1728.     State C(2), Zip C(10), Country C(20), Phone1 C(12), Phone2 C(12), ;
  1729.     Phone3 C(12), Phone4 C(12), FAX C(12), Picture C(1), Service1 C(20), Service2 C(20), ;
  1730.     Service3 C(20), Service4 C(20), Open N(6), ADI C(20), Page C(4), ;
  1731.     Coor C(2), OffType N(2), CityOver C(17), RosterSta C(30), Rams C(15), ;
  1732.     Achiev C(20), COMPUSERV C(17))
  1733.  
  1734. SELECT Roster
  1735. APPEND FROM rmxdta.txt TYPE DELIMITED
  1736.  
  1737.  
  1738. ERASE BioInfo.dbf
  1739. CREATE TABLE BioInfo ;
  1740.     (Unique N(12), Direct C(12), HomePhone C(12), AgntFax C(12), AgntPager C(12), ;
  1741.     AgntMobile C(12), CIVIC1 C(30), CIVIC2 C(30), CIVIC3 C(30), HOBBY1 C(30), ;
  1742.     HOBBY2 C(30), HOBBY3 C(30), MEMBER1 C(4), MEMBER2 C(4), MEMBER3 C(4), ;
  1743.     Service1 C(20), Service2 C(20), Service3 C(20), Service4 C(20), Service5 C(20), ;
  1744.     Education C(15), Desig1 C(10), Desig2 C(10), Desig3 C(10), Career C(40), ;
  1745.     Price_fr N(12), Price_to N(12), Pref C(1), Referal1 C(1), Referal2 C(1), ;
  1746.     Referal3 C(1), Referal4 C(1), ERCPaper C(1), Welcomekit C(1), Relocations N(5), ;
  1747.     Picture C(1), EntryDate N(6), BioSubs N(10), Info M)
  1748.     
  1749. SELECT BioInfo
  1750. APPEND FROM bioinfo.txt TYPE DELIMITED
  1751.  
  1752. CLOSE DATABASES
  1753.